/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (68k).sea / pro Fit 5.0 demo (68k) / Examples / Programming - drawing / BullsEye program

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 42 75 6c 6c 73 45 | 79 65 20 70 72 6f 67 72 |..BullsE|ye progr|
|00000010| 61 6d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |am......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 66 74 46 43 4e 4c 66 | 74 01 00 00 00 00 00 00 |.ftFCNLf|t.......|
|00000050| 00 00 00 00 00 03 12 00 | 00 03 2f ad 98 25 a1 ad |........|../..%..|
|00000060| 98 25 a1 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.%......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e4 54 00 00 |........|.....T..|
|00000080| 7b 0d 54 68 69 73 20 69 | 73 20 61 20 73 69 6d 70 |{.This i|s a simp|
|00000090| 6c 65 20 65 78 61 6d 70 | 6c 65 20 74 68 61 74 20 |le examp|le that |
|000000a0| 73 68 6f 77 73 20 68 6f | 77 20 74 6f 20 64 72 61 |shows ho|w to dra|
|000000b0| 77 20 69 6e 74 6f 20 61 | 20 64 72 61 77 69 6e 67 |w into a| drawing|
|000000c0| 20 77 69 6e 64 6f 77 0d | 66 72 6f 6d 20 61 20 70 | window.|from a p|
|000000d0| 72 6f 67 72 61 6d 2e 20 | 49 74 20 64 72 61 77 73 |rogram. |It draws|
|000000e0| 20 61 20 62 75 6c 6c 27 | 73 20 65 79 65 20 77 68 | a bull'|s eye wh|
|000000f0| 65 72 65 20 79 6f 75 20 | 6c 61 73 74 20 63 6c 69 |ere you |last cli|
|00000100| 63 6b 65 64 20 69 6e 74 | 6f 0d 74 68 65 20 64 72 |cked int|o.the dr|
|00000110| 61 77 69 6e 67 20 77 69 | 6e 64 6f 77 2e 0d 54 6f |awing wi|ndow..To|
|00000120| 20 72 75 6e 20 74 68 65 | 20 70 72 6f 67 72 61 6d | run the| program|
|00000130| 2c 20 66 69 72 73 74 20 | 63 6f 6d 70 69 6c 65 20 |, first |compile |
|00000140| 69 74 20 62 79 20 63 6c | 69 63 6b 69 6e 67 20 74 |it by cl|icking t|
|00000150| 68 65 20 62 75 74 74 6f | 6e 20 22 41 64 64 22 2e |he butto|n "Add".|
|00000160| 0d 54 68 65 6e 20 6f 70 | 65 6e 20 61 20 64 72 61 |.Then op|en a dra|
|00000170| 77 69 6e 67 20 77 69 6e | 64 6f 77 20 61 6e 64 20 |wing win|dow and |
|00000180| 63 6c 69 63 6b 20 69 6e | 74 6f 20 69 74 2e 20 54 |click in|to it. T|
|00000190| 68 65 6e 20 63 68 6f 6f | 73 65 20 74 68 65 0d 70 |hen choo|se the.p|
|000001a0| 72 6f 67 72 61 6d 20 22 | 42 75 6c 6c 73 45 79 65 |rogram "|BullsEye|
|000001b0| 22 20 66 72 6f 6d 20 74 | 68 65 20 6d 65 6e 75 20 |" from t|he menu |
|000001c0| 22 4d 69 73 63 22 2e 0d | 7d 0d 0d 70 72 6f 67 72 |"Misc"..|}..progr|
|000001d0| 61 6d 20 42 75 6c 6c 73 | 45 79 65 3b 0d 20 63 6f |am Bulls|Eye;. co|
|000001e0| 6e 73 74 20 72 61 64 69 | 75 73 20 3d 20 34 30 3b |nst radi|us = 40;|
|000001f0| 20 73 74 65 70 20 3d 20 | 38 3b 0d 20 76 61 72 20 | step = |8;. var |
|00000200| 78 30 2c 20 79 30 2c 20 | 74 3a 20 72 65 61 6c 3b |x0, y0, |t: real;|
|00000210| 0d 62 65 67 69 6e 0d 20 | 47 65 74 43 6c 69 63 6b |.begin. |GetClick|
|00000220| 65 64 43 6f 6f 72 64 28 | 78 30 2c 20 79 30 29 3b |edCoord(|x0, y0);|
|00000230| 20 20 20 20 7b 77 68 65 | 72 65 20 79 6f 75 20 6c |    {whe|re you l|
|00000240| 61 73 74 20 63 6c 69 63 | 6b 65 64 20 74 68 65 20 |ast clic|ked the |
|00000250| 64 72 61 77 69 6e 67 20 | 77 69 6e 64 6f 77 7d 0d |drawing |window}.|
|00000260| 20 47 72 6f 75 70 42 65 | 67 69 6e 3b 0d 20 74 20 | GroupBe|gin;. t |
|00000270| 3a 3d 20 73 74 65 70 3b | 0d 20 77 68 69 6c 65 20 |:= step;|. while |
|00000280| 74 3c 3d 72 61 64 69 75 | 73 20 64 6f 0d 20 62 65 |t<=radiu|s do. be|
|00000290| 67 69 6e 0d 20 20 20 44 | 72 61 77 45 6c 6c 69 70 |gin.   D|rawEllip|
|000002a0| 73 65 28 78 30 2d 74 2c | 79 30 2d 74 2c 78 30 2b |se(x0-t,|y0-t,x0+|
|000002b0| 74 2c 79 30 2b 74 29 3b | 0d 20 20 20 74 20 3a 3d |t,y0+t);|.   t :=|
|000002c0| 20 74 2b 73 74 65 70 3b | 0d 20 65 6e 64 3b 0d 20 | t+step;|. end;. |
|000002d0| 4d 6f 76 65 54 6f 28 78 | 30 2d 72 61 64 69 75 73 |MoveTo(x|0-radius|
|000002e0| 2a 31 2e 31 2c 20 79 30 | 29 3b 0d 20 4c 69 6e 65 |*1.1, y0|);. Line|
|000002f0| 54 6f 28 78 30 2b 72 61 | 64 69 75 73 2a 31 2e 31 |To(x0+ra|dius*1.1|
|00000300| 2c 20 79 30 29 3b 0d 20 | 4d 6f 76 65 54 6f 28 78 |, y0);. |MoveTo(x|
|00000310| 30 2c 20 79 30 2d 72 61 | 64 69 75 73 2a 31 2e 31 |0, y0-ra|dius*1.1|
|00000320| 29 3b 0d 20 4c 69 6e 65 | 54 6f 28 78 30 2c 20 79 |);. Line|To(x0, y|
|00000330| 30 2b 72 61 64 69 75 73 | 2a 31 2e 31 29 3b 0d 20 |0+radius|*1.1);. |
|00000340| 47 72 6f 75 70 45 6e 64 | 3b 0d 20 4d 6f 76 65 54 |GroupEnd|;. MoveT|
|00000350| 6f 28 78 30 2c 20 79 30 | 2b 72 61 64 69 75 73 2a |o(x0, y0|+radius*|
|00000360| 31 2e 31 20 2b 20 32 30 | 29 3b 0d 20 44 72 61 77 |1.1 + 20|);. Draw|
|00000370| 54 65 78 74 28 27 42 75 | 6c 6c ab 73 20 65 79 65 |Text('Bu|ll.s eye|
|00000380| 27 2c 20 30 2c 20 74 72 | 75 65 29 3b 0d 65 6e 64 |', 0, tr|ue);.end|
|00000390| 3b 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |;.......|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 01 00 00 00 02 b9 | 00 00 01 b9 00 00 00 76 |........|.......v|
|00000410| 20 63 6f 6c 75 6d 6e 73 | 0d 61 72 65 20 65 6d 70 | columns|.are emp|
|00000420| 74 79 2c 20 69 74 20 65 | 72 61 73 65 73 20 74 68 |ty, it e|rases th|
|00000430| 10 42 75 6c 6c 73 45 79 | 65 20 70 72 6f 67 72 61 |.BullsEy|e progra|
|00000440| 6d 72 02 00 00 00 66 74 | 46 43 4e 4c 66 74 01 00 |mr....ft|FCNLft..|
|00000450| 00 00 66 74 46 43 4e 4c | 66 74 01 00 ff ff ff ff |..ftFCNL|ft......|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000470| 00 00 ad 52 68 ce 00 00 | 03 12 00 00 03 2f 73 74 |...Rh...|...../st|
|00000480| 72 69 6e 67 20 27 64 6f | 6e 65 27 20 69 6e 74 6f |ring 'do|ne' into|
|00000490| 20 74 68 65 20 72 65 73 | 75 6c 74 73 20 77 69 6e | the res|ults win|
|000004a0| 64 6f 77 0d 7d 0d 0d 70 | 72 6f 67 72 61 6d 20 42 |dow.}..p|rogram B|
|000004b0| 75 6c 6c 73 45 79 65 3b | 0d 20 63 6f 6e 73 74 20 |ullsEye;|. const |
|000004c0| 72 61 64 69 75 73 20 3d | 20 34 30 3b 20 73 74 65 |radius =| 40; ste|
|000004d0| 70 20 3d 20 38 3b 0d 20 | 76 61 72 20 78 30 2c 20 |p = 8;. |var x0, |
|000004e0| 79 30 2c 20 74 3a 20 72 | 65 61 6c 3b 0d 62 65 67 |y0, t: r|eal;.beg|
|000004f0| 69 6e 0d 20 47 65 74 43 | 6c 69 63 6b 65 64 43 6f |in. GetC|lickedCo|
|00000500| 00 00 00 08 00 3c 00 05 | 02 27 02 3a 00 00 01 06 |.....<..|.'.:....|
|00000510| 00 04 00 09 00 27 06 4d | 6f 6e 61 63 6f 80 02 63 |.....'.M|onaco..c|
|00000520| 04 00 00 00 2d e8 02 87 | f7 70 22 00 02 28 40 a1 |....-...|.p"..(@.|
|00000530| 27 a0 00 56 5e b0 00 81 | 00 00 00 01 d9 94 00 0b |'..V^...|........|
|00000540| 00 06 00 0b 00 06 00 00 | 00 81 02 62 75 40 00 00 |........|...bu@..|
|00000550| 00 00 02 62 6b 04 00 00 | 00 81 02 62 75 40 00 00 |...bk...|...bu@..|
|00000560| 00 00 ff ff ff ff 02 87 | f8 c0 00 0c f3 54 03 22 |........|.....T."|
|00000570| 67 78 00 00 00 02 00 2a | 00 11 02 62 0d 80 02 87 |gx.....*|...b....|
|00000580| f7 a8 02 87 f8 00 02 87 | f8 a8 02 62 65 89 02 62 |........|...be..b|
|00000590| 84 78 00 00 00 01 00 04 | 6a 30 00 0c f4 a0 00 04 |.x......|j0......|
|000005a0| 6a 30 00 00 00 00 02 87 | f8 20 00 19 5a 70 00 14 |j0......|. ..Zp..|
|000005b0| d1 98 00 19 5a 90 02 87 | f8 20 00 18 bc 8c 00 14 |....Z...|. ......|
|000005c0| cb 14 00 45 8c 50 02 87 | f8 20 00 18 bc 8c 00 1a |...E.P..|. ......|
|000005d0| 8f 0c 00 1a 8f 00 02 87 | f8 50 00 18 bc 8c 00 1a |........|.P......|
|000005e0| 0e 8c 00 00 00 02 02 87 | f8 30 00 1a 8f 24 00 1a |........|.0...$..|
|000005f0| f2 94 00 0c f4 a0 00 01 | ee 50 00 01 2f a4 00 00 |........|.P../...|
|00000600| 00 00 00 0c f4 d0 02 62 | 88 a2 00 19 5a 70 07 80 |.......b|....Zp..|
|00000610| 03 80 00 00 00 00 00 00 | 00 10 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 04 00 00 |........|........|
|00000630| 00 01 00 00 00 78 00 03 | 00 00 00 48 00 48 00 00 |.....x..|...H.H..|
|00000640| 00 00 03 0d 02 1a ff e1 | ff e4 03 2b 02 37 03 47 |........|...+.7.G|
|00000650| 05 7b 03 e0 00 02 00 00 | 00 48 00 48 00 00 00 00 |.{......|.H.H....|
|00000660| 02 d8 02 28 00 01 00 00 | 00 64 00 00 00 01 00 03 |...(....|.d......|
|00000670| 03 03 00 ff 00 01 27 0f | 00 01 00 01 00 00 00 00 |......'.|........|
|00000680| 00 00 00 00 00 00 00 00 | 60 08 00 19 01 90 00 00 |........|`.......|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 07 06 70 72 6f 46 69 | 74 00 00 01 00 00 00 02 |...proFi|t.......|
|000006c0| b9 00 00 01 b9 00 00 00 | 76 02 62 9b fc 27 aa 00 |........|v.b..'..|
|000006d0| 00 00 1c 00 76 00 01 66 | 49 4e 46 00 04 00 12 53 |....v..f|INF....S|
|000006e0| 54 52 20 00 00 00 4e 00 | 81 ff ff 00 00 00 00 02 |TR ...N.|........|
|000006f0| 62 8d ec 00 82 ff ff 00 | 00 00 0c 02 62 8e bc 00 |b.......|....b...|
|00000700| 83 ff ff 00 00 01 16 02 | 64 a1 10 00 85 ff ff 00 |........|d.......|
|00000710| 00 01 2a 02 62 96 0c 00 | 84 ff ff 00 00 01 32 02 |..*.b...|......2.|
|00000720| 63 00 24 bf f4 ff ff 00 | 00 01 ae 02 60 bf 08 00 |c.$.....|....`...|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+